home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / Hy-Hyperi / HYPER PAYROLL.cpt / HYPER PAYROLL / card_3517.txt < prev    next >
Encoding:
Text File  |  1988-04-05  |  16.3 KB  |  761 lines
  1. -- card: 3517 from stack: in
  2. -- bmap block id: 6154
  3. -- flags: 4000
  4. -- background id: 2757
  5. -- name: J/E
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global FICA1
  9.   global FICA2
  10.   global FUTA1
  11.   global FUTA2
  12.   global SUTA1
  13.   global SUTA2
  14.   global FICAtotal
  15.   global FUTAtotal
  16.   global SUTAtotal
  17.   global FUTA
  18.   global SUTA
  19.   put 0 into FICAlimit
  20.   put line 1 of card field "FICArate" into FICA1
  21.   put line 2 of card field "FICArate" into FICA2
  22.   put line 1 of card field "FUTArate" into FUTA1
  23.   put line 2 of card field "FUTArate" into FUTA2
  24.   put line 1 of card field "SUTArate" into SUTA1
  25.   put line 2 of card field "SUTArate" into SUTA2
  26.   put FICA1 * FICA2 into FICAlimit
  27.   multiply FICAlimit by 100
  28.   put round(FICAlimit) into FICAtotal
  29.   divide FICAtotal by 100
  30.  
  31.  
  32. end openCard
  33.  
  34.  
  35. -- part 1 (field)
  36. -- low flags: 00
  37. -- high flags: 4000
  38. -- rect: left=192 top=79 right=286 bottom=282
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 65535
  42. -- font id: 3
  43. -- text size: 12
  44. -- style flags: 256
  45. -- line height: 16
  46. -- part name: Credits
  47.  
  48.  
  49. -- part 2 (field)
  50. -- low flags: 00
  51. -- high flags: 4000
  52. -- rect: left=102 top=79 right=286 bottom=191
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 65535
  56. -- font id: 3
  57. -- text size: 12
  58. -- style flags: 256
  59. -- line height: 16
  60. -- part name: Debits
  61.  
  62.  
  63. -- part 3 (field)
  64. -- low flags: 00
  65. -- high flags: 4000
  66. -- rect: left=45 top=79 right=285 bottom=99
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 65535
  70. -- font id: 3
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: CA Code
  75.  
  76.  
  77. -- part 4 (field)
  78. -- low flags: 00
  79. -- high flags: 4000
  80. -- rect: left=97 top=308 right=338 bottom=169
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 65535
  84. -- font id: 3
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: FICArate
  89.  
  90.  
  91. -- part 5 (field)
  92. -- low flags: 00
  93. -- high flags: 4000
  94. -- rect: left=171 top=308 right=338 bottom=243
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 65535
  98. -- font id: 3
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: FUTArate
  103.  
  104.  
  105. -- part 6 (field)
  106. -- low flags: 00
  107. -- high flags: 4000
  108. -- rect: left=245 top=308 right=338 bottom=317
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 65535
  112. -- font id: 3
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: SUTArate
  117.  
  118.  
  119. -- part 7 (button)
  120. -- low flags: 00
  121. -- high flags: 0000
  122. -- rect: left=353 top=224 right=248 bottom=382
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 1015 / 1015
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: ComputeJE
  131. ----- HyperTalk script -----
  132. on mouseUp
  133.  
  134.   -- SET FORMAT
  135.   set lockScreen to true
  136.   set textAlign of card field "Debits" to right
  137.   set textAlign of card field "Credits" to right
  138.   set textAlign of card field "qsum" to right
  139.   set textAlign of card field "ysum" to right
  140.   set textAlign of card field "Emp's" to right
  141.   set textAlign of card field "CA Code" to right
  142.   set textAlign of card field "FICArate" to right
  143.   set textAlign of card field "FUTArate" to right
  144.   set textAlign of card field "SUTArate" to right
  145.  
  146.   -- CHECK FOR DUPLICATE ENTRY ON THE SAME DAY
  147.   put line 1 of card field "DATE" into datetest
  148.   get the date
  149.   if it = datetest then
  150.     beep
  151.     beep
  152.     answer "DO YOU WANT TO DUPLICATE AN UPDATE !?!" with "Yes" or "No"
  153.     if it is "No" then
  154.       exit mouseUp
  155.     end if
  156.   end if
  157.  
  158.   -- SET GLOBALS
  159.   global FICA1
  160.   global FICA2
  161.   global FUTA1
  162.   global FUTA2
  163.   global FUTA
  164.   global SUTA1
  165.   global SUTA2
  166.   global SUTA
  167.   global FICAtotal
  168.   global Employees
  169.  
  170.   -- CLEAR LAST TOTALS BEFORE CALCULATING NEW J/E
  171.   get the date
  172.   set the textStyle of card field "DATE" to bold
  173.   set the textSize of card field "DATE" to 9
  174.   put it into line 1 of card field "DATE"
  175.   repeat with k = 1 to 13
  176.     put empty into line k of card field "Debits"
  177.     put empty into line k of card field "Credits"
  178.   end repeat
  179.   put 0 into sum1
  180.   put 0 into sum2
  181.   put 0 into sum3
  182.   put 0 into sum4
  183.   put 0 into sum5
  184.   put 0 into sum6
  185.   put 0 into sum7
  186.   put 0 into sum8
  187.   put 0 into sum9
  188.   put 0 into sum10
  189.   put 0 into sum11
  190.   put 0 into FICA
  191.   put 0 into FUTA
  192.   put 0 into SUTA
  193.   set lockScreen to false
  194.  
  195.   -- SPEED OR NOT?
  196.   beep
  197.   answer "Like to see Pay Cards being updated ?" with "Yes" or "No Thanks"
  198.   if it is "No Thanks" then
  199.     set lockScreen to true
  200.   else
  201.     set lockScreen to false
  202.   end if
  203.   set cursor to 4
  204.  
  205.   -- GO TO THE PAY CARDS FOR TOTALS AND UPDATES
  206.   get number of cards
  207.   put It into finis
  208.   put finis - 2 into Employees
  209.   repeat with x = 1 to finis-2
  210.     go to next card
  211.     visual wipe right to white
  212.  
  213.     -- UPDATE THE HOURS FIELD
  214.     set numberFormat to 0.
  215.     add line 1 of field "Hours" to line 3 of field "Hours"
  216.     add line 1 of field "Hours" to line 5 of field "Hours"
  217.     add line 2 of field "Hours" to line 4 of field "Hours"
  218.     add line 2 of field "Hours" to line 6 of field "Hours"
  219.  
  220.     --- GET TOTALS FROM THE CURRENT PAY COLUMN AND UPDATE TOTALS
  221.     set numberFormat to 0.00
  222.     put 0 into pay
  223.     add line 1 of field "CurrPay" to sum1
  224.     add line 2 of field "CurrPay" to sum2
  225.     add line 3 of field "CurrPay" to sum3
  226.     repeat with x = 1 to 3
  227.       add line x of field "CurrPay" to line x of field "QtrTotal"
  228.       add line x of field "CurrPay" to line x of field "YTDtotal"
  229.     end repeat
  230.  
  231.     -- CHECK FICA WITHHOLDING LIMITS
  232.     put 0 into currPaid
  233.     put 0 into ytdPaid
  234.     put 0 into thisPay
  235.     put line 4 of field "CurrPay" into currPaid
  236.     put line 4 of field "YTDtotal" into ytdPaid
  237.     put ytdPaid + currPaid into thisPaid
  238.     if thisPaid >= FICAtotal and ytdPaid >= FICAtotal and currPaid <> empty then
  239.       subtract currPaid from line 10 of field "CurrPay"
  240.       add currPaid to line 11 of field "CurrPay"
  241.       put 0 into line 4 of field "CurrPay"
  242.     else
  243.       if thisPaid >= FICAtotal and ytdPaid < FICAtotal then
  244.         put 0 into thisPaid
  245.         put FICAtotal - ytdPaid into thisPaid
  246.         put thisPaid into line 4 of field "CurrPay"
  247.         subtract currPaid - thisPaid from line 10 of field "CurrPay"
  248.         add currPaid - thisPaid to line 11 of field "CurrPay"
  249.       end if
  250.     end if
  251.  
  252.  
  253.     -- CHECK FUTA EARNING LIMIT
  254.     put 0 into pay
  255.     put 0 into ytdPay
  256.     put 0 into thisPay
  257.     repeat with x = 1 to 3
  258.       add line x of field "CurrPay" to pay
  259.       add line x of field "YTDtotal" to ytdPay
  260.     end repeat
  261.     put ytdPay - pay into thisPay
  262.     if ytdPay >= FUTA2 and thisPay >= FUTA2 then
  263.       add 0 to FUTA
  264.     else
  265.       if ytdPay >= FUTA2 and thisPay < FUTA2 then
  266.         add FUTA2 - thisPay to FUTA
  267.       else
  268.         add pay to FUTA
  269.       end if
  270.     end if
  271.  
  272.     -- CHECK SUTA EARNING LIMIT
  273.     if ytdPay >= SUTA2 and thisPay >= SUTA2 then
  274.       add 0 to SUTA
  275.     else
  276.       if ytdPay >= SUTA2 and thisPay < SUTA2 then
  277.         add SUTA2 - thisPay to SUTA
  278.       else
  279.         add pay to SUTA
  280.       end if
  281.     end if
  282.  
  283.     -- CONTINUE TO ADD THE REST
  284.     add line 4 of field "CurrPay" to sum4
  285.     add line 5 of field "CurrPay" to sum5
  286.     add line 6 of field "CurrPay" to sum6
  287.     add line 7 of field "CurrPay" to sum7
  288.     add line 8 of field "CurrPay" to sum8
  289.     add line 9 of field "CurrPay" to sum9
  290.     add line 10 of field "CurrPay" to sum10
  291.     add line 11 of field "CurrPay" to sum11
  292.     repeat with x = 4 to 11
  293.       add line x of field "CurrPay" to line x of field "QtrTotal"
  294.       add line x of field "CurrPay" to line x of field "YTDtotal"
  295.     end repeat
  296.   end repeat
  297.  
  298.  
  299.  
  300.   -- GO BACK AND UPDATE THE JOURNAL ENTRY AND SUMMARY OF PAY CARDS.
  301.   go to card ID 3517
  302.   set lockScreen to true
  303.   set textStyle of card field 1 to bold
  304.   set textStyle of card field 2 to bold
  305.   set numberFormat to 0.
  306.   put Employees into line 1 of card field "Emp's"
  307.   set numberFormat to 0.00
  308.   put 0 into cr
  309.   put 0 into db
  310.   put 0 into sumx
  311.   put 0 into pay
  312.   put "$" & sum11 into line 1 of card field "Credits"
  313.   add sum11 to cr
  314.   put line 1 of card field "qsum" into sumx
  315.   add sum1 to sumx
  316.   put sumx into line 1 of card field "qsum"
  317.   put 0 into sumx
  318.   put line 1 of card field "ysum" into sumx
  319.   add sum1 to sumx
  320.   put sumx into line 1 of card field "ysum"
  321.   put 0 into sumx
  322.   put line 2 of card field "qsum" into sumx
  323.   add sum2 to sumx
  324.   put sumx into line 2 of card field "qsum"
  325.   put 0 into sumx
  326.   put line 2 of card field "ysum" into sumx
  327.   add sum2 to sumx
  328.   put sumx into line 2 of card field "ysum"
  329.   put 0 into sumx
  330.   put sum1 into sumx
  331.   add sum2 to sumx
  332.   add sum3 to sumx
  333.   put sumx into pay
  334.   put "$" & sumx into line 2 of card field "Debits"
  335.   add sumx to db
  336.   put 0 into sumx
  337.   put "$" & sum4 into line 3 of card field "Debits"
  338.   add sum4 to db
  339.   put line 3 of card field "qsum" into sumx
  340.   add sum3 to sumx
  341.   put sumx into line 3 of card field "qsum"
  342.   put 0 into sumx
  343.   put line 3 of card field "ysum" into sumx
  344.   add sum3 to sumx
  345.   put sumx into line 3 of card field "ysum"
  346.   put 0 into sumx
  347.   put sum4 into sumf
  348.   multiply sum4 by 2
  349.   put "$" & sum4 into line 4 of card field "Credits"
  350.   add sum4 to cr
  351.   put line 4 of card field "qsum" into sumx
  352.   add sumf to sumx
  353.   put sumx into line 4 of card field "qsum"
  354.   put 0 into sumx
  355.   put line 4 of card field "ysum" into sumx
  356.   add sumf to sumx
  357.   put sumx into line 4 of card field "ysum"
  358.   put 0 into sumx
  359.   put "$" & sum5 into line 5 of card field "Credits"
  360.   add sum5 to cr
  361.   put line 5 of card field "qsum" into sumx
  362.   add sum5 to sumx
  363.   put sumx into line 5 of card field "qsum"
  364.   put 0 into sumx
  365.   put line 5 of card field "ysum" into sumx
  366.   add sum5 to sumx
  367.   put sumx into line 5 of card field "ysum"
  368.   put 0 into sumx
  369.   put "$" & sum6 into line 6 of card field "Credits"
  370.   add sum6 to cr
  371.   put line 6 of card field "qsum" into sumx
  372.   add sum6 to sumx
  373.   put sumx into line 6 of card field "qsum"
  374.   put 0 into sumx
  375.   put line 6 of card field "ysum" into sumx
  376.   add sum6 to sumx
  377.   put sumx into line 6 of card field "ysum"
  378.   put 0 into sumx
  379.   put "$" & sum7 into line 7 of card field "Credits"
  380.   add sum7 to cr
  381.   put line 7 of card field "qsum" into sumx
  382.   add sum7 to sumx
  383.   put sumx into line 7 of card field "qsum"
  384.   put 0 into sumx
  385.   put line 7 of card field "ysum" into sumx
  386.   add sum7 to sumx
  387.   put sumx into line 7 of card field "ysum"
  388.   put 0 into sumx
  389.   put "$" & sum8 into line 8 of card field "Credits"
  390.   add sum8 to cr
  391.   put line 8 of card field "qsum" into sumx
  392.   add sum8 to sumx
  393.   put sumx into line 8 of card field "qsum"
  394.   put 0 into sumx
  395.   put line 8 of card field "ysum" into sumx
  396.   add sum8 to sumx
  397.   put sumx into line 8 of card field "ysum"
  398.   put 0 into sumx
  399.   put "$" & FUTA * FUTA1 into line 9 of card field "Debits"
  400.   add FUTA to db
  401.   put "$" & SUTA * SUTA1 into line 10 of card field "Debits"
  402.   add SUTA to db
  403.   put "$" & FUTA * FUTA1 into line 11 of card field "Credits"
  404.   add FUTA to cr
  405.   put "$" & SUTA * SUTA1 into line 12 of card field "Credits"
  406.   add SUTA to cr
  407.   put "$" & db into line 13 of card field "Debits"
  408.   put "$" & cr into line 13 of card field "Credits"
  409.   beep
  410.   beep
  411.  
  412. end mouseUp
  413.  
  414.  
  415.  
  416. -- part 9 (button)
  417. -- low flags: 00
  418. -- high flags: 0000
  419. -- rect: left=357 top=295 right=313 bottom=379
  420. -- title width / last selected line: 0
  421. -- icon id / first selected line: 1015 / 1015
  422. -- text alignment: 1
  423. -- font id: 0
  424. -- text size: 12
  425. -- style flags: 0
  426. -- line height: 16
  427. -- part name: ClearQtr
  428. ----- HyperTalk script -----
  429. on mouseUp
  430.  
  431.   -- PRINT WARNING
  432.   beep
  433.   answer "You have all QUARTERLY printouts you need ?" with "Yes" or "No"
  434.   if it is "No" then
  435.     exit mouseUp
  436.   end if
  437.   set cursor to 4
  438.   set lockScreen to true
  439.  
  440.   -- CLEAR SUMMARY OF PAY CARDS
  441.   repeat with x = 1 to 13
  442.     put empty into line x of card field "qsum"
  443.   end repeat
  444.  
  445.  
  446.   -- CLEAR QUARTERLY TOTALS
  447.   get number of cards
  448.   put it into Finis
  449.   repeat with x = 1 to Finis-2
  450.     go to next card
  451.     -- CLEAR HOURS
  452.     put 0 into line 3 of field "Hours"
  453.     put 0 into line 4 of field "Hours"
  454.  
  455.     -- CLEAR TOTALS
  456.     set textAlign of field "QtrTotal" to right
  457.     repeat with x = 1 to 11
  458.       put empty into line x of field "QtrTotal"
  459.     end repeat
  460.   end repeat
  461.   go to card ID 3517
  462.   beep
  463.   beep
  464.   set cursor to 0
  465. end mouseUp
  466.  
  467.  
  468.  
  469. -- part 10 (button)
  470. -- low flags: 00
  471. -- high flags: 0000
  472. -- rect: left=434 top=295 right=314 bottom=455
  473. -- title width / last selected line: 0
  474. -- icon id / first selected line: 1015 / 1015
  475. -- text alignment: 1
  476. -- font id: 0
  477. -- text size: 12
  478. -- style flags: 0
  479. -- line height: 16
  480. -- part name: ClearYTD
  481. ----- HyperTalk script -----
  482. on mouseUp
  483.  
  484.   -- WARNING TO RECOMPUTE ALL PAY
  485.   beep
  486.   answer "You have all ANNUAL printouts you need ?" with "Yes" or "No"
  487.   if it is "No" then
  488.     exit mouseUp
  489.   end if
  490.  
  491.   set cursor to 4
  492.   set lockScreen to true
  493.  
  494.   -- CLEAR SUMMARY OF PAY CARDS
  495.   repeat with x = 1 to 13
  496.     put empty into line x of card field "ysum"
  497.   end repeat
  498.  
  499.   -- CLEAR YEAR-TO-DATE TOTALS
  500.   get number of cards
  501.   put it into Finis
  502.   repeat with x = 1 to Finis-2
  503.     go to next card
  504.     -- CLEAR HOURS
  505.     put 0 into line 5 of field "Hours"
  506.     put 0 into line 6 of field "Hours"
  507.  
  508.     -- CLEAR TOTALS
  509.     set textAlign of field "YTDtotal" to right
  510.     repeat with x = 1 to 11
  511.       put empty into line x of field "YTDtotal"
  512.     end repeat
  513.  
  514.   end repeat
  515.   go to card ID 3517
  516.   beep
  517.   beep
  518.   answer "Please COMPUTE PAY on each card at his time." with "OK"
  519.   set cursor to 0
  520. end mouseUp
  521.  
  522.  
  523.  
  524. -- part 11 (field)
  525. -- low flags: 00
  526. -- high flags: 0000
  527. -- rect: left=62 top=55 right=67 bottom=146
  528. -- title width / last selected line: 0
  529. -- icon id / first selected line: 0 / 0
  530. -- text alignment: 0
  531. -- font id: 3
  532. -- text size: 9
  533. -- style flags: 256
  534. -- line height: 12
  535. -- part name: DATE
  536.  
  537.  
  538. -- part 13 (field)
  539. -- low flags: 00
  540. -- high flags: 4000
  541. -- rect: left=416 top=79 right=205 bottom=505
  542. -- title width / last selected line: 0
  543. -- icon id / first selected line: 0 / 0
  544. -- text alignment: 65535
  545. -- font id: 3
  546. -- text size: 12
  547. -- style flags: 0
  548. -- line height: 16
  549. -- part name: ysum
  550.  
  551.  
  552. -- part 14 (field)
  553. -- low flags: 00
  554. -- high flags: 4000
  555. -- rect: left=328 top=79 right=205 bottom=415
  556. -- title width / last selected line: 0
  557. -- icon id / first selected line: 0 / 0
  558. -- text alignment: 65535
  559. -- font id: 3
  560. -- text size: 12
  561. -- style flags: 0
  562. -- line height: 16
  563. -- part name: qsum
  564.  
  565.  
  566. -- part 16 (button)
  567. -- low flags: 00
  568. -- high flags: 0000
  569. -- rect: left=427 top=225 right=246 bottom=453
  570. -- title width / last selected line: 0
  571. -- icon id / first selected line: 15972 / 15972
  572. -- text alignment: 1
  573. -- font id: 0
  574. -- text size: 12
  575. -- style flags: 0
  576. -- line height: 16
  577. -- part name: New Button
  578. ----- HyperTalk script -----
  579. on mouseUp
  580.   doMenu "New Card"
  581. end mouseUp
  582.  
  583.  
  584.  
  585. -- part 17 (field)
  586. -- low flags: 00
  587. -- high flags: 0000
  588. -- rect: left=352 top=55 right=71 bottom=412
  589. -- title width / last selected line: 0
  590. -- icon id / first selected line: 0 / 0
  591. -- text alignment: 65535
  592. -- font id: 3
  593. -- text size: 9
  594. -- style flags: 256
  595. -- line height: 12
  596. -- part name: Emp's
  597. ----- HyperTalk script -----
  598. on openCard
  599.   set textAlign to right
  600.   set numberFormat to 0.
  601. end openCard
  602.  
  603.  
  604. -- part 18 (button)
  605. -- low flags: 00
  606. -- high flags: 8003
  607. -- rect: left=6 top=26 right=46 bottom=55
  608. -- title width / last selected line: 0
  609. -- icon id / first selected line: 0 / 0
  610. -- text alignment: 1
  611. -- font id: 0
  612. -- text size: 12
  613. -- style flags: 0
  614. -- line height: 16
  615. -- part name: Help
  616. ----- HyperTalk script -----
  617. on mouseUp
  618.   go to prev card
  619. end mouseUp
  620.  
  621.  
  622.  
  623. -- part contents for background part 1
  624. ----- text -----
  625. John
  626.  
  627.  
  628.  
  629.  
  630. -- part contents for card part 2
  631. ----- text -----
  632.  
  633. $7106.00
  634. $128.12
  635.  
  636.  
  637.  
  638.  
  639.  
  640. $5.65
  641. $0.71
  642.  
  643.  
  644. $8646.12
  645.  
  646. -- part contents for card part 6
  647. ----- text -----
  648. 0.001
  649. 7000.00
  650.  
  651. -- part contents for card part 4
  652. ----- text -----
  653. 0.0751
  654. 45000.00
  655.  
  656. -- part contents for card part 3
  657. ----- text -----
  658. 1060
  659. 6420
  660. 6430
  661. 2010
  662. 2020
  663. 2030
  664. 2040
  665. 2050
  666. 6440
  667. 6450 
  668. 2060
  669. 2070
  670.  
  671. -- part contents for card part 5
  672. ----- text -----
  673. 0.008
  674. 7000.00
  675.  
  676. -- part contents for background part 12
  677. ----- text -----
  678.  
  679.  
  680.  
  681. $00.00
  682. $00.00
  683. $00.00
  684.  
  685. -- part contents for card part 1
  686. ----- text -----
  687. $4455.46
  688.  
  689.  
  690. $256.24
  691. $1625.00
  692. $616.92
  693. $254.50
  694. $26.00
  695.  
  696.  
  697. $5.65
  698. $0.71
  699. $8646.12
  700.  
  701. -- part contents for background part 11
  702. ----- text -----
  703. 0
  704. 0
  705. 0
  706. 0
  707. 0
  708. 0
  709. 0
  710. 0
  711. 0
  712. 0
  713. 0
  714.  
  715. -- part contents for background part 13
  716. ----- text -----
  717.  
  718.  
  719.  
  720.  
  721.  
  722.  
  723. -- part contents for card part 11
  724. ----- text -----
  725. 4/5/88
  726.  
  727. -- part contents for card part 14
  728. ----- text -----
  729. 14040.00
  730. 72.00
  731. 100.00
  732. 391.42
  733. 3250.00
  734. 1233.84
  735. 509.00
  736. 52.00
  737.  
  738.  
  739.  
  740.  
  741.  
  742.  
  743. -- part contents for card part 13
  744. ----- text -----
  745. 70200.00
  746. 360.00
  747. 500.00
  748. 4660.70
  749. 16250.00
  750. 6169.20
  751. 2545.00
  752. 260.00
  753.  
  754.  
  755.  
  756.  
  757.  
  758.  
  759. -- part contents for card part 17
  760. ----- text -----
  761. 4